home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / pcl / src-16f.lha / tools / do-worldbuild < prev    next >
Text File  |  1992-02-26  |  595b  |  30 lines
  1. #!/bin/csh -fx
  2. #
  3. #  do-worldbuild -- script to run worldbuild
  4. #
  5. # $Header: do-worldbuild,v 1.3 92/02/26 01:11:18 wlott Exp $
  6.  
  7. if ($#argv) then
  8.     set subdir = $argv[1]
  9. else
  10.     set subdir = alpha
  11. endif
  12.  
  13. set dest = /afs/cs/project/clisp/build/@sys/$subdir
  14. set src = /afs/cs/project/clisp/src/$subdir
  15.  
  16. if ($?LISP) then
  17.     set lisp = "$LISP"
  18. else
  19.     set lisp = lisp
  20. endif
  21.  
  22. $lisp -noinit << EOF
  23. (setf (search-list "target:") '("$dest/" "$src/"))
  24. (load "target:bootstrap" :if-does-not-exist nil)
  25. (load "target:tools/setup")
  26. (load "target:compiler/generic/genesis")
  27. (load "target:tools/worldbuild")
  28. (quit)
  29. EOF
  30.